home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / TPUG Xtras / Xtras / progdisk.d64 / sound (.txt) < prev    next >
Commodore BASIC  |  2009-02-07  |  3KB  |  176 lines
  1. 10 POKE53281,1:POKE53280,6
  2. 20 PRINTCHR$(142)
  3. 30 PRINT"[147]"
  4. 40 PRINTTAB(14)"               [146]"
  5. 50 PRINTTAB(14)" SOUND EFFECTS [146]"
  6. 60 PRINTTAB(14)"               [146]"
  7. 70 PRINT"[151]   THIS IS A SIMPLE  DEMONSTRATION OF"
  8. 80 PRINT"   SOME OF THE SOUND EFFECTS THAT CAN"
  9. 90 PRINT"   BE GENERATED ON THE  COMMODORE 64."
  10. 100 PRINTTAB(7)"1[146].  ALIEN";
  11. 110 PRINTTAB(25)"4[146].  CLAP   "
  12. 120 PRINTTAB(7)"2[146].  BELLS ";
  13. 130 PRINTTAB(25)"5[146].  RAYGUN "
  14. 140 PRINTTAB(7)"3[146].  BOMB ";
  15. 150 PRINTTAB(25)"6[146].  SIREN  "
  16. 170 PRINT"  PRESS THE NUMBER OF SOUND EFFECT YOU"
  17. 180 PRINTTAB(14)"WISH TO HEAR"
  18. 190 GETA$:IFA$=""THEN190
  19. 200 A=VAL(A$):IFA<1ORA>6THEN190
  20. 210 PRINT"[147]":ONAGOSUB230,580,390,700,1150,1290
  21. 214 FOR I=1TO1000:NEXTI
  22. 215 FOR X=1 TO 24:POKE 54272+X,0 : NEXT
  23. 220 GOTO 30
  24. 230 REM   >> ALIEN SOUND EFFECT <<
  25. 240 :
  26. 250 FOR X=1 TO 24:POKE 54272+X,0 : NEXT
  27. 260 :
  28. 270 REM   ** SOUND SUBROUTINE **
  29. 280 :
  30. 290 S=54272:S2=54279
  31. 300 POKE S+24,15
  32. 310 POKE S+5,50:POKES+5,50
  33. 320 FOR X=1 TO 90
  34. 330 POKE S+1,RND(X)*32+50:POKES2+1,RND(X)*32+48
  35. 340 : POKE S+4,17:POKES2+4,17
  36. 350 FOR I=1 TO 20: NEXT
  37. 360 POKE S+4,16:POKES2+4,16
  38. 370 NEXT X
  39. 380 RETURN
  40. 390 REM   >>> BOMB SOUND EFFECT <<<
  41. 400 FOR X=1TO 24: POKE 54272+X,0: NEXT
  42. 410 :
  43. 420 REM   ** SOUND SUBROUTINE **
  44. 430 :
  45. 440 S=54272:S1=S+1:V=15
  46. 450 POKE S+24,V
  47. 460 POKE S+5,12*16
  48. 470 POKE S+6,15*16+10
  49. 480 FOR K= 255 TO 2STEP -1
  50. 490 POKE S1,K
  51. 500 POKE S,210
  52. 510 POKE S+4,17
  53. 520 FOR D=1 TO 5 : NEXT D
  54. 530 NEXT K
  55. 540 POKE S+24,15:SA=54279
  56. 550 POKE S+4,128:POKESA+4,128
  57. 560 POKE S,18:POKE S1,21:POKESA,82:POKESA+1,100
  58. 570 RETURN
  59. 580 REM **BELL::         **********3
  60. 590 FOR J=1 TO 3
  61. 595 S=54272
  62. 600 FOR L=0 TO 24:POKE S+L,0:NEXT
  63. 610 POKE S+24,15
  64. 620 FOR Q=1TO3
  65. 630 FOR W=1TO200:NEXTW
  66. 635 IF Q=3 THEN S=54286
  67. 640 IF Q=2 THEN S=54279
  68. 645 IF Q=1 THEN S=54272
  69. 650 POKE S,102:POKE S+1,194:POKES+5,9:POKES+6,0
  70. 660 POKE S+4,21
  71. 670 FOR T=1 TO 900:NEXT
  72. 680 NEXTQ,J
  73. 690 POKE S+4,20:POKE24+S,0:RETURN
  74. 700 REM CLAP           ************ 4
  75. 710 S=54272
  76. 715 FOR C=1TO5
  77. 720 FOR L=0 TO 24:POKE S+L,0:NEXT
  78. 730 FORJ=1TO10:NEXT
  79. 740 POKE S,240  :POKE S+1,33
  80. 750 POKE S+5,8  :POKE S+22,104
  81. 760 POKE S+23,1 :POKE S+24,79
  82. 770 POKE S+4,129
  83. 775 NEXT C
  84. 780 FOR T=1 TO 200:NEXT
  85. 790 POKE S+4,128
  86. 800 POKE S+24,0:RETURN
  87. 810 :
  88. 820 PRINT"[147] HIT ANY KEY FOR GUNFIRE":REM ************ 5
  89. 830 PRINT"    ( * TO END DEMO ) "
  90. 840 GET A$ : IF A$="" THEN 840
  91. 850 IF A$="*" THEN 880
  92. 860 GOSUB 910: REM SOUND SUBROUTINE
  93. 870 GOTO 820
  94. 880 FOR X=1TO24: POKE 54272+X,0 : NEXT
  95. 890 RETURN
  96. 900 :
  97. 910 REM  * SOUND SUBROUTINE *
  98. 920 :
  99. 930 S=54272:S2=54279
  100. 940 POKE S+24,15
  101. 950 POKE S+5,9:POKES2+5,9
  102. 960 POKE S+1,20
  103. 970 POKE S+4,128:POKES2+4,128
  104. 980 FOR D=1 TO 10: NEXT D
  105. 990 POKE S+4,129:POKES2+4,129
  106. 1000 RETURN
  107. 1010 REM *** PONG ***
  108. 1015 FOR P=1TO5
  109. 1020 FOR X=1TO24:POKE 54272+X,0 : NEXTX
  110. 1030 REM  ** SOUND SUBROUTINE **
  111. 1040 S=54272
  112. 1050 FOR U=1TO3
  113. 1060 POKE S+1,20
  114. 1070 POKE S+5,9
  115. 1080 POKE S+6,9
  116. 1090 POKE S+24,15
  117. 1100 POKE S+4,17
  118. 1110 FOR D=1 TO 40: NEXT D
  119. 1120 NEXTU,P
  120. 1130 POKE S+4,16:POKES+24,0
  121. 1140 RETURN
  122. 1150 PRINT
  123. 1160 FOR X=1TO24 : POKE 54272+X,0: NEXT
  124. 1170 REM ** SOUND SUBROUTINE **
  125. 1180 S=54272
  126. 1190 POKE S+24,15
  127. 1200 POKE S+6,240
  128. 1210 POKE S+4,17
  129. 1220 FOR A=1 TO 10
  130. 1230 FOR X= 1 TO 255  STEP 25
  131. 1240 POKE S+1,X
  132. 1250 NEXT X
  133. 1260 NEXT A
  134. 1270 POKE S+4,32
  135. 1280 RETURN
  136. 1290 REM SIREN     ****** 6
  137. 1300 S=54272
  138. 1310 FOR L=0 TO 24:POKE S+L,0:NEXT
  139. 1320 POKE S+14,5 :POKE S+18,16
  140. 1330 POKE S+3,1  :POKE S+24,143
  141. 1340 POKE S+6,240:POKE S+4,65
  142. 1350 FR=5499
  143. 1360 FOR T=1 TO 400
  144. 1370 FQ=FR+PEEK(S+27)*5.5
  145. 1380 HF=INT(FQ/256):LF=FQ-HF*256
  146. 1390 POKE S,LF:POKE S+1,HF
  147. 1400 NEXT:
  148. 1410 POKE S+24,0:RETURN
  149. 1420 REM *** OCEAN WAVES ***
  150. 1430 S=54272:FOR X=1TO24:POKES+X,0:NEXTX
  151. 1440 POKES+5,0:POKES+6,0
  152. 1450 POKES+4,129:POKES,125:POKES+1,55
  153. 1460 POKES+24,75
  154. 1470 FORL=1TO10
  155. 1480 D=INT(RND(1)*5)*50+50
  156. 1490 FOR M=8TO15
  157. 1500 POKES+24,M+64
  158. 1510 FOR N=1TOD:NEXTN:NEXTM
  159. 1520 FOR M=15TO8STEP-1
  160. 1530 POKES+24,M+64
  161. 1540 FOR N=1TOD:NEXTN:NEXTM:NEXTL
  162. 1550 S=54272:FOR X=1TO24:POKES+X,0:NEXTX
  163. 1560 RETURN
  164. 2000 S=54272: REM MOSQUITO
  165. 2010 FORL=0TO24:POKES+L,0:NEXT
  166. 2020 POKES+1,100
  167. 2030 POKES+5,219
  168. 2040 POKES+15,28
  169. 2050 POKES+24,15
  170. 2060 POKES+4,19
  171. 2070 FORT=1TO5000:NEXT
  172. 2080 POKES+4,18
  173. 2090 FORT=1TO1000:NEXT
  174. 2100 RETURN
  175. 2214 FOR T=1TO1000:NEXT T
  176.